home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Original Shareware 1.1
/
The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso
/
32
/
uswar.zip
/
BEEP.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1984-10-19
|
174b
|
13 lines
PROCEDURE beep(n:integer);
{ emits n beep sounds }
var i : integer;
BEGIN
for i := 1 to n do
begin
sound(440);
delay(250);
nosound;
end;
END;